﻿Public Class GebaeudeAruura_Zerstoert
    Inherits ObjektGebaeude

    Public Sub New(ByVal neuSpieler As Integer, ByVal neuX As Integer, ByVal neuY As Integer, ByVal Spielfeld As ObjektSpielfeld)
        MyBase.New("ARUURAZERSTOERT", neuSpieler, neuX, neuY, ObjektSpielfeld.Bodenschlacht)
        GebaeudeLaden()
        getBildID(Spielfeld)
    End Sub
    Public Sub New(ByVal neuSpieler As Integer, ByVal neuLeben As Integer, ByVal neuBesetzungszahl As Integer, ByVal neuX As Integer, ByVal neuY As Integer, ByVal Feuerzahl As Integer, ByVal Spielfeld As ObjektSpielfeld)
        MyBase.New("ARUURAZERSTOERT", neuSpieler, neuLeben, neuBesetzungszahl, neuX, neuY, Feuerzahl, ObjektSpielfeld.Bodenschlacht)
        GebaeudeLaden()
        getBildID(Spielfeld)
    End Sub

    Public Sub New()
        MyBase.New("", -1, -1, -1, ObjektSpielfeld.Bodenschlacht)
        Gebaeudename = "Ruine"
        getFonds = False
        Deckung = 0
        Bestzunge = -1
        Schaden = 0
        Reichweite = -1
        Rechteck.Height = Hauptmenue.Feldbreite * 3
        Rechteck.Width = Hauptmenue.Feldbreite * 3
        Angriff = Angriffe.Keiner
        Leben = -1
        Feuerbereite = -1
        Feuerladung = 1
        RotationsZenturm = New Point(Hauptmenue.Feldbreite * 3 / 2, Hauptmenue.Feldbreite * 3 / 2)
        WirdZu = ""
        Verweisgebaeude = New Integer(,) {{-1, -1}, {-1, 0}, {1, -1}, {0, -1}, {0, 1}, {1, 0}, {1, 1}, {-1, 1}}
    End Sub

    Private Sub GebaeudeLaden()
        Gebaeudename = "Ruine"
        getFonds = False
        Deckung = 0
        Bestzunge = -1
        Schaden = 0
        Reichweite = -1
        Rechteck.Height = Hauptmenue.Feldbreite * 3
        Rechteck.Width = Hauptmenue.Feldbreite * 3
        Angriff = Angriffe.Keiner
        Leben = -1
        Feuerbereite = -1
        Feuerladung = -1
        RotationsZenturm = New Point(Hauptmenue.Feldbreite * 3 / 2, Hauptmenue.Feldbreite * 3 / 2)
        WirdZu = ""
        Verweisgebaeude = New Integer(,) {{-1, -1}, {-1, 0}, {1, -1}, {0, -1}, {0, 1}, {1, 0}, {1, 1}, {-1, 1}}
        If Rechteck.X > 0 And Rechteck.Y > 0 Then
            For I = 0 To Verweisgebaeude.GetLength(0) - 1
                If Not Objektverwalter.Spielfeld Is Nothing Then
                    Objektverwalter.Spielfeld.Landschaften(Rechteck.X + Verweisgebaeude(I, 0), Rechteck.Y + Verweisgebaeude(I, 1), ObjektSpielfeld.Bodenschlacht).Gebaeude = New GebaeudeVerweis(Spieler, Rechteck.X, Rechteck.Y, ObjektSpielfeld.Bodenschlacht)
                End If
            Next
        End If
    End Sub
    Public Overrides Function GetLandschaftsuntergrund() As String()
        Return New String() {"EBENE", "SCHNEE", "WUESTE", "EBENE+SCHROTT"}
    End Function
    Public Overrides Sub Feuer(ByVal X As Integer, ByVal Y As Integer)
        'Do Nothing
    End Sub
    Public Overrides Sub FeuerradiusAnzeigen()
        'Do Nothing
    End Sub
    Public Overrides Sub DOSpielFrame()
        'Wir machen nichts
    End Sub

    Public Overrides Function GetAngriffsFelder() As System.Drawing.Point()
        Return New Point() {}
    End Function
End Class
